Top 10k strings from Sales Ledger (1983)(Kemp).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   6 m$=n$(z(p))
   6 (h(x)+j(x)):
   4 m$>n$(z(p))
   4 ;w$''"No./Name";
   4 ;"FILING":
   4 ;"DELETING":
   4 "9";"VAT";
   4 "1";"ADDING":
   3 T                                                                     
   2 z(p)=z(p+1
   2 z(l)=z(l-1
   2 y$(x,t)=h$:
   2 y$(x,l)=y$(x,l+1
   2 y$(x,c)=y$(m,c):
   2 x$="                                ":
   2 tp=tp+h(x)+j(x):
   2 tp=tp+h(a)+j(a):
   2 s=s+p(a,l)
   2 s$(x,t)=i$:
   2 s$(x,l)=s$(x,l+1
   2 s$(x,c)=s$(m,c):
   2 q(x,t)=vat:
   2 q(x,l)=q(x,l+1
   2 q(x,c)=q(m,c):
   2 p=p+p(a,l):
   2 p(x,l)=p(x,l+1
   2 p(x,c)=p(m,c):
   2 p$(x,t)="1"
   2 p$(x,t)="0":
   2 p$(x,l)=p$(x,l+1
   2 p$(x,c)=p$(m,c):
   2 p$(a,l)="3"
   2 p$(a,l)="1"
   2 o(x)=o(m):
   2 n$(x)=n$(m):
   2 m$>n$(z(to))
   2 m$=m$+" ":
   2 m$(l)>"z")
   2 m$(l)>"Z")
   2 m$(l)>"9")
   2 l$="________________________________":
   2 k$(l)>"9")
   2 j(x)=j(x)-p(x,t)
   2 j(x)=j(x)+p(x,t)
   2 j(x)=j(m):
   2 j(a)=h(a)+j(a):
   2 j$=j$+".00"
   2 j$="TOTAL DUE "+j$:
   2 j$="Debtor Total ` "+j$
   2 j$;j$'d$(x)'l$:
   2 i$=s$(x,t)
   2 h(x)=h(x)-q(x,t):
   2 h(x)=h(x)+q(x,t):
   2 h(x)=h(m):
   2 h(x)+j(x)<.01
   2 h$=y$(x,t)
   2 h$=h$+w$(5
   2 f;"  ";r-1
   2 e$="Press ENTER for Menu ":
   2 d$(x)=d$(m):
   2 b$(x)=b$(m):
   2 a+" (00.0) ";
   2 a$=y$(x,t):
   2 a$=y$(x,p):
   2 a$=y$(x,c):
   2 a$(l)>"9")
   2 T                                                                        
   2 KEMP LTD1983":
   2 KEMP LTD.1983
   2 ;w$'d$(x)'"LIMIT ";
   2 ;s$(x,p);:
   2 ;s$(x,c);:
   2 ;p(x,t)'l$:
   2 ;o(x)'"TOTAL DUE ";h(x)+j(x)'"EXCESS ";
   2 ;h(x)+j(x)-o(x)'l$:
   2 ;d$(x)'l$:
   2 ;d$(x)''"DATE";
   2 ;"v.a.t.";
   2 ;"WARNING":
   2 ;"VERIFYING":
   2 ;"V.A.T.";
   2 ;"Sales Menu";
   2 ;"STATEMENT";
   2 ;"SAVING":
   2 ;"SALES FILE ";w$'':
   2 ;"SALES  LEDGER";
   2 ;"RESETTING":
   2 ;"RESETTING LEADS TO"'
   2 ;"REQUIRED  ";a;x$(
   2 ;"Pence?"+x$(
   2 ;"PRINTING":
   2 ;"No Accounts-Create":
   2 ;"Limit"'"Name:";
   2 ;"LOSS OF ENTRY DATA"'
   2 ;"LIMIT ";o(x)'n$(x);
   2 ;"Invalid":
   2 ;"Invalid Date"
   2 ;"File full":
   2 ;"FILE CLOSEDOWN ";w$:
   2 ;"Entry Deleted":
   2 ;"Enter Name (max=20)":
   2 ;"Enter 's' to select page"
   2 ;"Enter 'e' to save system"
   2 ;"Enter 'e' to return to menu "
   2 ;"END OF FILE":
   2 ;"Debtor Listing";
   2 ;"DEBTOR LISTING";
   2 ;"DAILY SALES FILE ";
   2 ;"Amount"''
   2 ;"Amount "'':
   2 ;"Account exists-Type in new No.":
   2 ;"Account Not Found":
   2 ;"Account No";
   2 ;"AVAILABLE 48000":
   2 ;"AND NEW SUMMARY TOTALS";
   2 ;"ACCOUNT FULL":
   2 ;"ACCOUNT DELETION ":
   2 ;"8:Print Statements"'
   2 ;"7: Totals  Summary"''
   2 ;"6: Account Listing"''
   2 ;"5: Delete  Account"''
   2 ;"4: Create  Account"''
   2 ;"3: Correct Account"''
   2 ;"2: Update  Account"''
   2 ;"1: Display Account"''
   2 ;"/ Reset Accounts ";
   2 ;" SEARCHING ":
   2 ;" LIMIT "
   2 ;" Enter No. of Transaction Type:"'"1=Sale,2=Receipt,3=C/Note."
   2 ;" DELETED ":
   2 ;"    SYSTEM   ";
   2 );"%";" 4=";x(4
   2 );"%"'"5=";x(5
   2 );"% 3=";x(3
   2 );"% 2=";x(2
   2 )'"V.A.T. No.";z$(97
   2 )'"Total ";j$;:
   2 )'"Total "+j$;:
   2 (m$(l)<"a"
   2 (m$(l)<"A"
   2 (m$(l)<"0"
   2 (k$(l)<"0"
   2 (j(x)+h(x)):
   2 (a$(l)<"0"
   2 ((lo+to)/2
   2 ((h(a)+j(a))*100
   2 ''"SALES SUMMARY PERIOD TO ";w$:
   2 ''"SALES    ";j$:
   2 ''"NOTE:B/F TOTALS INCLUDE V.A.T."''z$(129
   2 '"VAT      ";j$:
   2 '"RECEIPTS ";j$:
   2 '"CORRECTION/DELETION";
   2 "sales1.1"
   2 "Would you like to verify?(y/n) ";
   2 "Would you like a printed listing(y/n)? ";
   2 "Press ENTER for next page ";
   2 "OLD DETAILS":
   2 "OLD DETAILS"'a;
   2 "No of entries per account? (max=254) ";
   2 "No of accounts?(max=284) ";
   2 "NEW DETAILS"
   2 "LIMIT:";n$(x);
   2 "Enter your vat no.";
   2 "Enter your co's name (max=32)";
   2 "Enter your address(max=64) ";
   2 "Enter v.a.t. code(e=menu) ";
   2 "Enter terms  etc. to  appear on statement (max=64) ";
   2 "Enter new vat rates(y/n)? ";
   2 "Enter new co. details (y/n)? ";
   2 "Enter access code ";
   2 "Enter VAT rate "+
   2 "Enter Reference(max=4)";
   2 "Enter Option No.: ";
   2 "Enter Date(ddmm)(yy) ";
   2 "Enter Cost(0.00)(max=7) ";
   2 "Enter Account No.(max=4) ";
   2 "Enter Account No. ";
   2 "Enter 'yes'if this account to bedeleted ";
   2 "Enter 'yes' to print statements ";
   2 "Enter 'yes' if this right entry ";
   2 "Enter 'reset' to reset accounts with B/F balances ";
   2 "Enter 'e' for Menu ";
   2 "ENTER 'c' to continue(e=menu)";
   2 "Do you wish to save file?(y/n)";
   2 "Credit Limit?(max=6figs)";
   2 "Check-Is This Correct?(y/n) ";
   2 "9";"This Period":
   2 "9";"Sales";
   2 "9";"Sales    ";j$:
   2 "9";"SALES SUMMARY"''
   2 "9";"Receipts";
   2 "9";"Receipts ";j$;
   2 "8";"Previous Period"'
   2 "8";"LIMIT ";o(x);
   2 "7";"PRESS n=no change,e=menu.   To change entry use keys 6 and 7to find,then s=select,d=delete."
   2 "5";"Debtor Total `";j$
   2 "24";w$'n$(x);
   2 "(e=menu) ";
   2 " Enter 'yes' for a  summary to  date ";
   2 " Enter  'yes' to  print ledger   accounts ";
   1 text 1    h
   1 sales1.1  
   1 s100s101s102creds103s104cb1 s105s106s107s108cb1 s109cr1 s110s111cb1                                 s115                                                                                                s116s132                                                                                            s120                                                                                                s121s122s145s146cb1                                                                                 s123s124                                                                                            s127cb1                                                                                             s130s131cb1                                                                                         s113s114s115cr1                                                                                     s138s139cb1                                                                                                               
   1 demo 1    vd*#
   1 ________________________________E
   1 T                                                                                                                                                                                                                                                                                                                                                                                                                                                         
   1 T                                                                  
   1 T                                                               
   1 T                                                            
   1 T                        
   1 Press ENTER for Menu 
   1 Kemp Limited                     43  Muswell  Hill , Haringey ,  London, N.10.  3PN.            123456789                       We offer the best in small micro business software.             
   1 Created with Ramsoft MakeTZX
   1 Atlantic Ship Cargo Britannia Beckett   Carlyle & Finch     H Donovan Motors    European Cars       J FitzGerald        P. Goldstein        Hillyard Services   Intercomtek ServicesJohnson Trans-Port                                                                                                      
   1 ;"Press any key to continue":
   1 ;"  We will  provide upgrades and  replace damaged  goods for a   reduced sum.  We are  happy to  answer your queries by phone.    With  all these  features and  full back-up our software offers unrivalled quality."
   1 1   b1  c1  d1  e1  f1  g1  h1  i1  j1                      
   1 00000010000100001        0                        00                       0                        00001                    00                       01                       001                      0000                     001                                                                                                                                                   
   1 '" The program shows the benefits of computerisation, including   automatic calculation of VAT    and account totals  and fast up-to-the-minute  sales  summaries. The program  will also print   customer statements and ledger  accounts."
   1 '"   This program enables you to   computerise  your  customer     accounts at a fraction of the   normal cost.  All the normal    facilities of an expensive      system are provided.The program has been designed to make the   jobs of accountants as easy as  possible and save you money in  fees."
   1 " The program is easy to use with on-screen  instructions  at all times."'
   1                        " Full security measures include optional verification on loading and saving,data validation to   prevent the entry of incorrect  data and an access routine.A    copy of the program ready for   use is recorded after the       demonstration file." 
   1                                 L